home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S5.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-04-14  |  384 b   |  19 lines
  1. 10   PRINT "POISSON DISTRIBUTION"
  2. 20   PRINT 
  3. 30   PRINT "(TO END PROGRAM ENTER 0)"
  4. 40   PRINT "CALCULATED FREQUENCY";
  5. 50   INPUT L
  6. 60   IF L = 0 THEN 180
  7. 70   PRINT "TEST FREQUENCY";
  8. 80   INPUT X
  9. 90  A = 1
  10. 100   FOR I = 1 TO X
  11. 110  A = A * I
  12. 120   NEXT I
  13. 130  A =  LOG (A)
  14. 140  A =  EXP ( - L + X *  LOG (L) - A)
  15. 150   PRINT "PROBABILITY OF ";X;" OCCURRENCES = ";A
  16. 160   PRINT 
  17. 170   GOTO 40
  18. 180   RUN "STAT"
  19.